home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / classes.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  73.3 KB  |  1,701 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Classes.pas' rev: 3.00
  6.  
  7. #ifndef ClassesHPP
  8. #define ClassesHPP
  9. #include <Windows.hpp>
  10. #include <SysUtils.hpp>
  11. #include <SysInit.hpp>
  12. #include <System.hpp>
  13.  
  14. //-- user supplied -----------------------------------------------------------
  15. #pragma option -w-inl    
  16.  
  17. namespace Classes
  18. {
  19. //-- type declarations -------------------------------------------------------
  20. enum TAlignment { taLeftJustify, taRightJustify, taCenter };
  21.  
  22. typedef TAlignment TLeftRight;
  23.  
  24. enum Classes__1 { ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble };
  25.  
  26. typedef Set<Classes__1, ssShift, ssDouble>  TShiftState;
  27.  
  28. typedef int THelpContext;
  29.  
  30. typedef void __fastcall (__closure *TNotifyEvent)(System::TObject* Sender);
  31.  
  32. typedef bool __fastcall (__closure *THelpEvent)(Word Command, int Data, bool &CallHelp);
  33.  
  34. typedef void __fastcall (__closure *TGetStrProc)(const System::AnsiString S);
  35.  
  36. class DELPHICLASS EStreamError;
  37. class PASCALIMPLEMENTATION EStreamError : public Sysutils::Exception 
  38. {
  39.     typedef Sysutils::Exception inherited;
  40.     
  41. public:
  42.     /* Exception.Create */ __fastcall EStreamError(const System::AnsiString Msg) : Sysutils::Exception(
  43.         Msg) { }
  44.     /* Exception.CreateFmt */ __fastcall EStreamError(const System::AnsiString Msg, const System::TVarRec 
  45.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  46.     /* Exception.CreateRes */ __fastcall EStreamError(int Ident, Extended Dummy) : Sysutils::Exception(
  47.         Ident, Dummy) { }
  48.     /* Exception.CreateResFmt */ __fastcall EStreamError(int Ident, const System::TVarRec * Args, const 
  49.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  50.     /* Exception.CreateHelp */ __fastcall EStreamError(const System::AnsiString Msg, int AHelpContext) : 
  51.         Sysutils::Exception(Msg, AHelpContext) { }
  52.     /* Exception.CreateFmtHelp */ __fastcall EStreamError(const System::AnsiString Msg, const System::TVarRec 
  53.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  54.         ) { }
  55.     /* Exception.CreateResHelp */ __fastcall EStreamError(int Ident, int AHelpContext) : Sysutils::Exception(
  56.         Ident, AHelpContext) { }
  57.     /* Exception.CreateResFmtHelp */ __fastcall EStreamError(int Ident, const System::TVarRec * Args, const 
  58.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  59.     
  60. public:
  61.     /* TObject.Destroy */ __fastcall virtual ~EStreamError(void) { }
  62.     
  63. };
  64.  
  65. class DELPHICLASS EFCreateError;
  66. class PASCALIMPLEMENTATION EFCreateError : public Classes::EStreamError 
  67. {
  68.     typedef Classes::EStreamError inherited;
  69.     
  70. public:
  71.     /* Exception.Create */ __fastcall EFCreateError(const System::AnsiString Msg) : Classes::EStreamError(
  72.         Msg) { }
  73.     /* Exception.CreateFmt */ __fastcall EFCreateError(const System::AnsiString Msg, const System::TVarRec 
  74.         * Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  75.     /* Exception.CreateRes */ __fastcall EFCreateError(int Ident, Extended Dummy) : Classes::EStreamError(
  76.         Ident, Dummy) { }
  77.     /* Exception.CreateResFmt */ __fastcall EFCreateError(int Ident, const System::TVarRec * Args, const 
  78.         int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  79.     /* Exception.CreateHelp */ __fastcall EFCreateError(const System::AnsiString Msg, int AHelpContext)
  80.          : Classes::EStreamError(Msg, AHelpContext) { }
  81.     /* Exception.CreateFmtHelp */ __fastcall EFCreateError(const System::AnsiString Msg, const System::TVarRec 
  82.         * Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
  83.         ) { }
  84.     /* Exception.CreateResHelp */ __fastcall EFCreateError(int Ident, int AHelpContext) : Classes::EStreamError(
  85.         Ident, AHelpContext) { }
  86.     /* Exception.CreateResFmtHelp */ __fastcall EFCreateError(int Ident, const System::TVarRec * Args, 
  87.         const int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext
  88.         ) { }
  89.     
  90. public:
  91.     /* TObject.Destroy */ __fastcall virtual ~EFCreateError(void) { }
  92.     
  93. };
  94.  
  95. class DELPHICLASS EFOpenError;
  96. class PASCALIMPLEMENTATION EFOpenError : public Classes::EStreamError 
  97. {
  98.     typedef Classes::EStreamError inherited;
  99.     
  100. public:
  101.     /* Exception.Create */ __fastcall EFOpenError(const System::AnsiString Msg) : Classes::EStreamError(
  102.         Msg) { }
  103.     /* Exception.CreateFmt */ __fastcall EFOpenError(const System::AnsiString Msg, const System::TVarRec 
  104.         * Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  105.     /* Exception.CreateRes */ __fastcall EFOpenError(int Ident, Extended Dummy) : Classes::EStreamError(
  106.         Ident, Dummy) { }
  107.     /* Exception.CreateResFmt */ __fastcall EFOpenError(int Ident, const System::TVarRec * Args, const 
  108.         int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  109.     /* Exception.CreateHelp */ __fastcall EFOpenError(const System::AnsiString Msg, int AHelpContext) : 
  110.         Classes::EStreamError(Msg, AHelpContext) { }
  111.     /* Exception.CreateFmtHelp */ __fastcall EFOpenError(const System::AnsiString Msg, const System::TVarRec 
  112.         * Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
  113.         ) { }
  114.     /* Exception.CreateResHelp */ __fastcall EFOpenError(int Ident, int AHelpContext) : Classes::EStreamError(
  115.         Ident, AHelpContext) { }
  116.     /* Exception.CreateResFmtHelp */ __fastcall EFOpenError(int Ident, const System::TVarRec * Args, const 
  117.         int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext) { }
  118.         
  119.     
  120. public:
  121.     /* TObject.Destroy */ __fastcall virtual ~EFOpenError(void) { }
  122.     
  123. };
  124.  
  125. class DELPHICLASS EFilerError;
  126. class PASCALIMPLEMENTATION EFilerError : public Classes::EStreamError 
  127. {
  128.     typedef Classes::EStreamError inherited;
  129.     
  130. public:
  131.     /* Exception.Create */ __fastcall EFilerError(const System::AnsiString Msg) : Classes::EStreamError(
  132.         Msg) { }
  133.     /* Exception.CreateFmt */ __fastcall EFilerError(const System::AnsiString Msg, const System::TVarRec 
  134.         * Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  135.     /* Exception.CreateRes */ __fastcall EFilerError(int Ident, Extended Dummy) : Classes::EStreamError(
  136.         Ident, Dummy) { }
  137.     /* Exception.CreateResFmt */ __fastcall EFilerError(int Ident, const System::TVarRec * Args, const 
  138.         int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  139.     /* Exception.CreateHelp */ __fastcall EFilerError(const System::AnsiString Msg, int AHelpContext) : 
  140.         Classes::EStreamError(Msg, AHelpContext) { }
  141.     /* Exception.CreateFmtHelp */ __fastcall EFilerError(const System::AnsiString Msg, const System::TVarRec 
  142.         * Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
  143.         ) { }
  144.     /* Exception.CreateResHelp */ __fastcall EFilerError(int Ident, int AHelpContext) : Classes::EStreamError(
  145.         Ident, AHelpContext) { }
  146.     /* Exception.CreateResFmtHelp */ __fastcall EFilerError(int Ident, const System::TVarRec * Args, const 
  147.         int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext) { }
  148.         
  149.     
  150. public:
  151.     /* TObject.Destroy */ __fastcall virtual ~EFilerError(void) { }
  152.     
  153. };
  154.  
  155. class DELPHICLASS EReadError;
  156. class PASCALIMPLEMENTATION EReadError : public Classes::EFilerError 
  157. {
  158.     typedef Classes::EFilerError inherited;
  159.     
  160. public:
  161.     /* Exception.Create */ __fastcall EReadError(const System::AnsiString Msg) : Classes::EFilerError(Msg
  162.         ) { }
  163.     /* Exception.CreateFmt */ __fastcall EReadError(const System::AnsiString Msg, const System::TVarRec 
  164.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  165.     /* Exception.CreateRes */ __fastcall EReadError(int Ident, Extended Dummy) : Classes::EFilerError(Ident
  166.         , Dummy) { }
  167.     /* Exception.CreateResFmt */ __fastcall EReadError(int Ident, const System::TVarRec * Args, const int 
  168.         Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  169.     /* Exception.CreateHelp */ __fastcall EReadError(const System::AnsiString Msg, int AHelpContext) : 
  170.         Classes::EFilerError(Msg, AHelpContext) { }
  171.     /* Exception.CreateFmtHelp */ __fastcall EReadError(const System::AnsiString Msg, const System::TVarRec 
  172.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  173.         ) { }
  174.     /* Exception.CreateResHelp */ __fastcall EReadError(int Ident, int AHelpContext) : Classes::EFilerError(
  175.         Ident, AHelpContext) { }
  176.     /* Exception.CreateResFmtHelp */ __fastcall EReadError(int Ident, const System::TVarRec * Args, const 
  177.         int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext) { }
  178.     
  179. public:
  180.     /* TObject.Destroy */ __fastcall virtual ~EReadError(void) { }
  181.     
  182. };
  183.  
  184. class DELPHICLASS EWriteError;
  185. class PASCALIMPLEMENTATION EWriteError : public Classes::EFilerError 
  186. {
  187.     typedef Classes::EFilerError inherited;
  188.     
  189. public:
  190.     /* Exception.Create */ __fastcall EWriteError(const System::AnsiString Msg) : Classes::EFilerError(
  191.         Msg) { }
  192.     /* Exception.CreateFmt */ __fastcall EWriteError(const System::AnsiString Msg, const System::TVarRec 
  193.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  194.     /* Exception.CreateRes */ __fastcall EWriteError(int Ident, Extended Dummy) : Classes::EFilerError(
  195.         Ident, Dummy) { }
  196.     /* Exception.CreateResFmt */ __fastcall EWriteError(int Ident, const System::TVarRec * Args, const 
  197.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  198.     /* Exception.CreateHelp */ __fastcall EWriteError(const System::AnsiString Msg, int AHelpContext) : 
  199.         Classes::EFilerError(Msg, AHelpContext) { }
  200.     /* Exception.CreateFmtHelp */ __fastcall EWriteError(const System::AnsiString Msg, const System::TVarRec 
  201.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  202.         ) { }
  203.     /* Exception.CreateResHelp */ __fastcall EWriteError(int Ident, int AHelpContext) : Classes::EFilerError(
  204.         Ident, AHelpContext) { }
  205.     /* Exception.CreateResFmtHelp */ __fastcall EWriteError(int Ident, const System::TVarRec * Args, const 
  206.         int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext) { }
  207.     
  208. public:
  209.     /* TObject.Destroy */ __fastcall virtual ~EWriteError(void) { }
  210.     
  211. };
  212.  
  213. class DELPHICLASS EClassNotFound;
  214. class PASCALIMPLEMENTATION EClassNotFound : public Classes::EFilerError 
  215. {
  216.     typedef Classes::EFilerError inherited;
  217.     
  218. public:
  219.     /* Exception.Create */ __fastcall EClassNotFound(const System::AnsiString Msg) : Classes::EFilerError(
  220.         Msg) { }
  221.     /* Exception.CreateFmt */ __fastcall EClassNotFound(const System::AnsiString Msg, const System::TVarRec 
  222.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  223.     /* Exception.CreateRes */ __fastcall EClassNotFound(int Ident, Extended Dummy) : Classes::EFilerError(
  224.         Ident, Dummy) { }
  225.     /* Exception.CreateResFmt */ __fastcall EClassNotFound(int Ident, const System::TVarRec * Args, const 
  226.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  227.     /* Exception.CreateHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, int AHelpContext
  228.         ) : Classes::EFilerError(Msg, AHelpContext) { }
  229.     /* Exception.CreateFmtHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, const System::TVarRec 
  230.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  231.         ) { }
  232.     /* Exception.CreateResHelp */ __fastcall EClassNotFound(int Ident, int AHelpContext) : Classes::EFilerError(
  233.         Ident, AHelpContext) { }
  234.     /* Exception.CreateResFmtHelp */ __fastcall EClassNotFound(int Ident, const System::TVarRec * Args, 
  235.         const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
  236.         ) { }
  237.     
  238. public:
  239.     /* TObject.Destroy */ __fastcall virtual ~EClassNotFound(void) { }
  240.     
  241. };
  242.  
  243. class DELPHICLASS EMethodNotFound;
  244. class PASCALIMPLEMENTATION EMethodNotFound : public Classes::EFilerError 
  245. {
  246.     typedef Classes::EFilerError inherited;
  247.     
  248. public:
  249.     /* Exception.Create */ __fastcall EMethodNotFound(const System::AnsiString Msg) : Classes::EFilerError(
  250.         Msg) { }
  251.     /* Exception.CreateFmt */ __fastcall EMethodNotFound(const System::AnsiString Msg, const System::TVarRec 
  252.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  253.     /* Exception.CreateRes */ __fastcall EMethodNotFound(int Ident, Extended Dummy) : Classes::EFilerError(
  254.         Ident, Dummy) { }
  255.     /* Exception.CreateResFmt */ __fastcall EMethodNotFound(int Ident, const System::TVarRec * Args, const 
  256.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  257.     /* Exception.CreateHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, int AHelpContext
  258.         ) : Classes::EFilerError(Msg, AHelpContext) { }
  259.     /* Exception.CreateFmtHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, const System::TVarRec 
  260.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  261.         ) { }
  262.     /* Exception.CreateResHelp */ __fastcall EMethodNotFound(int Ident, int AHelpContext) : Classes::EFilerError(
  263.         Ident, AHelpContext) { }
  264.     /* Exception.CreateResFmtHelp */ __fastcall EMethodNotFound(int Ident, const System::TVarRec * Args
  265.         , const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
  266.         ) { }
  267.     
  268. public:
  269.     /* TObject.Destroy */ __fastcall virtual ~EMethodNotFound(void) { }
  270.     
  271. };
  272.  
  273. class DELPHICLASS EInvalidImage;
  274. class PASCALIMPLEMENTATION EInvalidImage : public Classes::EFilerError 
  275. {
  276.     typedef Classes::EFilerError inherited;
  277.     
  278. public:
  279.     /* Exception.Create */ __fastcall EInvalidImage(const System::AnsiString Msg) : Classes::EFilerError(
  280.         Msg) { }
  281.     /* Exception.CreateFmt */ __fastcall EInvalidImage(const System::AnsiString Msg, const System::TVarRec 
  282.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  283.     /* Exception.CreateRes */ __fastcall EInvalidImage(int Ident, Extended Dummy) : Classes::EFilerError(
  284.         Ident, Dummy) { }
  285.     /* Exception.CreateResFmt */ __fastcall EInvalidImage(int Ident, const System::TVarRec * Args, const 
  286.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  287.     /* Exception.CreateHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, int AHelpContext)
  288.          : Classes::EFilerError(Msg, AHelpContext) { }
  289.     /* Exception.CreateFmtHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, const System::TVarRec 
  290.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  291.         ) { }
  292.     /* Exception.CreateResHelp */ __fastcall EInvalidImage(int Ident, int AHelpContext) : Classes::EFilerError(
  293.         Ident, AHelpContext) { }
  294.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidImage(int Ident, const System::TVarRec * Args, 
  295.         const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
  296.         ) { }
  297.     
  298. public:
  299.     /* TObject.Destroy */ __fastcall virtual ~EInvalidImage(void) { }
  300.     
  301. };
  302.  
  303. class DELPHICLASS EResNotFound;
  304. class PASCALIMPLEMENTATION EResNotFound : public Sysutils::Exception 
  305. {
  306.     typedef Sysutils::Exception inherited;
  307.     
  308. public:
  309.     /* Exception.Create */ __fastcall EResNotFound(const System::AnsiString Msg) : Sysutils::Exception(
  310.         Msg) { }
  311.     /* Exception.CreateFmt */ __fastcall EResNotFound(const System::AnsiString Msg, const System::TVarRec 
  312.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  313.     /* Exception.CreateRes */ __fastcall EResNotFound(int Ident, Extended Dummy) : Sysutils::Exception(
  314.         Ident, Dummy) { }
  315.     /* Exception.CreateResFmt */ __fastcall EResNotFound(int Ident, const System::TVarRec * Args, const 
  316.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  317.     /* Exception.CreateHelp */ __fastcall EResNotFound(const System::AnsiString Msg, int AHelpContext) : 
  318.         Sysutils::Exception(Msg, AHelpContext) { }
  319.     /* Exception.CreateFmtHelp */ __fastcall EResNotFound(const System::AnsiString Msg, const System::TVarRec 
  320.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  321.         ) { }
  322.     /* Exception.CreateResHelp */ __fastcall EResNotFound(int Ident, int AHelpContext) : Sysutils::Exception(
  323.         Ident, AHelpContext) { }
  324.     /* Exception.CreateResFmtHelp */ __fastcall EResNotFound(int Ident, const System::TVarRec * Args, const 
  325.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  326.     
  327. public:
  328.     /* TObject.Destroy */ __fastcall virtual ~EResNotFound(void) { }
  329.     
  330. };
  331.  
  332. class DELPHICLASS EListError;
  333. class PASCALIMPLEMENTATION EListError : public Sysutils::Exception 
  334. {
  335.     typedef Sysutils::Exception inherited;
  336.     
  337. public:
  338.     /* Exception.Create */ __fastcall EListError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  339.         ) { }
  340.     /* Exception.CreateFmt */ __fastcall EListError(const System::AnsiString Msg, const System::TVarRec 
  341.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  342.     /* Exception.CreateRes */ __fastcall EListError(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  343.         , Dummy) { }
  344.     /* Exception.CreateResFmt */ __fastcall EListError(int Ident, const System::TVarRec * Args, const int 
  345.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  346.     /* Exception.CreateHelp */ __fastcall EListError(const System::AnsiString Msg, int AHelpContext) : 
  347.         Sysutils::Exception(Msg, AHelpContext) { }
  348.     /* Exception.CreateFmtHelp */ __fastcall EListError(const System::AnsiString Msg, const System::TVarRec 
  349.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  350.         ) { }
  351.     /* Exception.CreateResHelp */ __fastcall EListError(int Ident, int AHelpContext) : Sysutils::Exception(
  352.         Ident, AHelpContext) { }
  353.     /* Exception.CreateResFmtHelp */ __fastcall EListError(int Ident, const System::TVarRec * Args, const 
  354.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  355.     
  356. public:
  357.     /* TObject.Destroy */ __fastcall virtual ~EListError(void) { }
  358.     
  359. };
  360.  
  361. class DELPHICLASS EBitsError;
  362. class PASCALIMPLEMENTATION EBitsError : public Sysutils::Exception 
  363. {
  364.     typedef Sysutils::Exception inherited;
  365.     
  366. public:
  367.     /* Exception.Create */ __fastcall EBitsError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  368.         ) { }
  369.     /* Exception.CreateFmt */ __fastcall EBitsError(const System::AnsiString Msg, const System::TVarRec 
  370.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  371.     /* Exception.CreateRes */ __fastcall EBitsError(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  372.         , Dummy) { }
  373.     /* Exception.CreateResFmt */ __fastcall EBitsError(int Ident, const System::TVarRec * Args, const int 
  374.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  375.     /* Exception.CreateHelp */ __fastcall EBitsError(const System::AnsiString Msg, int AHelpContext) : 
  376.         Sysutils::Exception(Msg, AHelpContext) { }
  377.     /* Exception.CreateFmtHelp */ __fastcall EBitsError(const System::AnsiString Msg, const System::TVarRec 
  378.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  379.         ) { }
  380.     /* Exception.CreateResHelp */ __fastcall EBitsError(int Ident, int AHelpContext) : Sysutils::Exception(
  381.         Ident, AHelpContext) { }
  382.     /* Exception.CreateResFmtHelp */ __fastcall EBitsError(int Ident, const System::TVarRec * Args, const 
  383.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  384.     
  385. public:
  386.     /* TObject.Destroy */ __fastcall virtual ~EBitsError(void) { }
  387.     
  388. };
  389.  
  390. class DELPHICLASS EStringListError;
  391. class PASCALIMPLEMENTATION EStringListError : public Sysutils::Exception 
  392. {
  393.     typedef Sysutils::Exception inherited;
  394.     
  395. public:
  396.     /* Exception.Create */ __fastcall EStringListError(const System::AnsiString Msg) : Sysutils::Exception(
  397.         Msg) { }
  398.     /* Exception.CreateFmt */ __fastcall EStringListError(const System::AnsiString Msg, const System::TVarRec 
  399.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  400.     /* Exception.CreateRes */ __fastcall EStringListError(int Ident, Extended Dummy) : Sysutils::Exception(
  401.         Ident, Dummy) { }
  402.     /* Exception.CreateResFmt */ __fastcall EStringListError(int Ident, const System::TVarRec * Args, const 
  403.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  404.     /* Exception.CreateHelp */ __fastcall EStringListError(const System::AnsiString Msg, int AHelpContext
  405.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  406.     /* Exception.CreateFmtHelp */ __fastcall EStringListError(const System::AnsiString Msg, const System::TVarRec 
  407.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  408.         ) { }
  409.     /* Exception.CreateResHelp */ __fastcall EStringListError(int Ident, int AHelpContext) : Sysutils::
  410.         Exception(Ident, AHelpContext) { }
  411.     /* Exception.CreateResFmtHelp */ __fastcall EStringListError(int Ident, const System::TVarRec * Args
  412.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  413.         ) { }
  414.     
  415. public:
  416.     /* TObject.Destroy */ __fastcall virtual ~EStringListError(void) { }
  417.     
  418. };
  419.  
  420. class DELPHICLASS EComponentError;
  421. class PASCALIMPLEMENTATION EComponentError : public Sysutils::Exception 
  422. {
  423.     typedef Sysutils::Exception inherited;
  424.     
  425. public:
  426.     /* Exception.Create */ __fastcall EComponentError(const System::AnsiString Msg) : Sysutils::Exception(
  427.         Msg) { }
  428.     /* Exception.CreateFmt */ __fastcall EComponentError(const System::AnsiString Msg, const System::TVarRec 
  429.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  430.     /* Exception.CreateRes */ __fastcall EComponentError(int Ident, Extended Dummy) : Sysutils::Exception(
  431.         Ident, Dummy) { }
  432.     /* Exception.CreateResFmt */ __fastcall EComponentError(int Ident, const System::TVarRec * Args, const 
  433.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  434.     /* Exception.CreateHelp */ __fastcall EComponentError(const System::AnsiString Msg, int AHelpContext
  435.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  436.     /* Exception.CreateFmtHelp */ __fastcall EComponentError(const System::AnsiString Msg, const System::TVarRec 
  437.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  438.         ) { }
  439.     /* Exception.CreateResHelp */ __fastcall EComponentError(int Ident, int AHelpContext) : Sysutils::Exception(
  440.         Ident, AHelpContext) { }
  441.     /* Exception.CreateResFmtHelp */ __fastcall EComponentError(int Ident, const System::TVarRec * Args
  442.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  443.         ) { }
  444.     
  445. public:
  446.     /* TObject.Destroy */ __fastcall virtual ~EComponentError(void) { }
  447.     
  448. };
  449.  
  450. class DELPHICLASS EParserError;
  451. class PASCALIMPLEMENTATION EParserError : public Sysutils::Exception 
  452. {
  453.     typedef Sysutils::Exception inherited;
  454.     
  455. public:
  456.     /* Exception.Create */ __fastcall EParserError(const System::AnsiString Msg) : Sysutils::Exception(
  457.         Msg) { }
  458.     /* Exception.CreateFmt */ __fastcall EParserError(const System::AnsiString Msg, const System::TVarRec 
  459.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  460.     /* Exception.CreateRes */ __fastcall EParserError(int Ident, Extended Dummy) : Sysutils::Exception(
  461.         Ident, Dummy) { }
  462.     /* Exception.CreateResFmt */ __fastcall EParserError(int Ident, const System::TVarRec * Args, const 
  463.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  464.     /* Exception.CreateHelp */ __fastcall EParserError(const System::AnsiString Msg, int AHelpContext) : 
  465.         Sysutils::Exception(Msg, AHelpContext) { }
  466.     /* Exception.CreateFmtHelp */ __fastcall EParserError(const System::AnsiString Msg, const System::TVarRec 
  467.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  468.         ) { }
  469.     /* Exception.CreateResHelp */ __fastcall EParserError(int Ident, int AHelpContext) : Sysutils::Exception(
  470.         Ident, AHelpContext) { }
  471.     /* Exception.CreateResFmtHelp */ __fastcall EParserError(int Ident, const System::TVarRec * Args, const 
  472.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  473.     
  474. public:
  475.     /* TObject.Destroy */ __fastcall virtual ~EParserError(void) { }
  476.     
  477. };
  478.  
  479. class DELPHICLASS EOutOfResources;
  480. class PASCALIMPLEMENTATION EOutOfResources : public Sysutils::EOutOfMemory 
  481. {
  482.     typedef Sysutils::EOutOfMemory inherited;
  483.     
  484. public:
  485.     /* EOutOfMemory.Destroy */ __fastcall virtual ~EOutOfResources(void) { }
  486.     
  487. public:
  488.     /* Exception.Create */ __fastcall EOutOfResources(const System::AnsiString Msg) : Sysutils::EOutOfMemory(
  489.         Msg) { }
  490.     /* Exception.CreateFmt */ __fastcall EOutOfResources(const System::AnsiString Msg, const System::TVarRec 
  491.         * Args, const int Args_Size) : Sysutils::EOutOfMemory(Msg, Args, Args_Size) { }
  492.     /* Exception.CreateRes */ __fastcall EOutOfResources(int Ident, Extended Dummy) : Sysutils::EOutOfMemory(
  493.         Ident, Dummy) { }
  494.     /* Exception.CreateResFmt */ __fastcall EOutOfResources(int Ident, const System::TVarRec * Args, const 
  495.         int Args_Size) : Sysutils::EOutOfMemory(Ident, Args, Args_Size) { }
  496.     /* Exception.CreateHelp */ __fastcall EOutOfResources(const System::AnsiString Msg, int AHelpContext
  497.         ) : Sysutils::EOutOfMemory(Msg, AHelpContext) { }
  498.     /* Exception.CreateFmtHelp */ __fastcall EOutOfResources(const System::AnsiString Msg, const System::TVarRec 
  499.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EOutOfMemory(Msg, Args, Args_Size, AHelpContext
  500.         ) { }
  501.     /* Exception.CreateResHelp */ __fastcall EOutOfResources(int Ident, int AHelpContext) : Sysutils::EOutOfMemory(
  502.         Ident, AHelpContext) { }
  503.     /* Exception.CreateResFmtHelp */ __fastcall EOutOfResources(int Ident, const System::TVarRec * Args
  504.         , const int Args_Size, int AHelpContext) : Sysutils::EOutOfMemory(Ident, Args, Args_Size, AHelpContext
  505.         ) { }
  506.     
  507. };
  508.  
  509. class DELPHICLASS EInvalidOperation;
  510. class PASCALIMPLEMENTATION EInvalidOperation : public Sysutils::Exception 
  511. {
  512.     typedef Sysutils::Exception inherited;
  513.     
  514. public:
  515.     /* Exception.Create */ __fastcall EInvalidOperation(const System::AnsiString Msg) : Sysutils::Exception(
  516.         Msg) { }
  517.     /* Exception.CreateFmt */ __fastcall EInvalidOperation(const System::AnsiString Msg, const System::TVarRec 
  518.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  519.     /* Exception.CreateRes */ __fastcall EInvalidOperation(int Ident, Extended Dummy) : Sysutils::Exception(
  520.         Ident, Dummy) { }
  521.     /* Exception.CreateResFmt */ __fastcall EInvalidOperation(int Ident, const System::TVarRec * Args, 
  522.         const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  523.     /* Exception.CreateHelp */ __fastcall EInvalidOperation(const System::AnsiString Msg, int AHelpContext
  524.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  525.     /* Exception.CreateFmtHelp */ __fastcall EInvalidOperation(const System::AnsiString Msg, const System::TVarRec 
  526.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  527.         ) { }
  528.     /* Exception.CreateResHelp */ __fastcall EInvalidOperation(int Ident, int AHelpContext) : Sysutils::
  529.         Exception(Ident, AHelpContext) { }
  530.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidOperation(int Ident, const System::TVarRec * Args
  531.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  532.         ) { }
  533.     
  534. public:
  535.     /* TObject.Destroy */ __fastcall virtual ~EInvalidOperation(void) { }
  536.     
  537. };
  538.  
  539. typedef void *TPointerList[134217727];
  540.  
  541. typedef TPointerList *PPointerList;
  542.  
  543. typedef int __fastcall (*TListSortCompare)(void * Item1, void * Item2);
  544.  
  545. class DELPHICLASS TList;
  546. class PASCALIMPLEMENTATION TList : public System::TObject 
  547. {
  548.     typedef System::TObject inherited;
  549.     
  550. private:
  551.     TPointerList *FList;
  552.     int FCount;
  553.     int FCapacity;
  554.     
  555. protected:
  556.     void * __fastcall Get(int Index);
  557.     virtual void __fastcall Grow(void);
  558.     void __fastcall Put(int Index, void * Item);
  559.     void __fastcall SetCapacity(int NewCapacity);
  560.     void __fastcall SetCount(int NewCount);
  561.     
  562. public:
  563.     __fastcall virtual ~TList(void);
  564.     int __fastcall Add(void * Item);
  565.     DYNAMIC void __fastcall Clear(void);
  566.     void __fastcall Delete(int Index);
  567.     /* virtual class method */ virtual void __fastcall Error(const System::AnsiString Msg, int Data) { Error(__classid(TList)
  568.         , Msg, Data); }
  569.     /*         class method */ static void __fastcall Error(System::TMetaClass* vmt, const System::AnsiString 
  570.         Msg, int Data);
  571.     void __fastcall Exchange(int Index1, int Index2);
  572.     TList* __fastcall Expand(void);
  573.     void * __fastcall First(void);
  574.     int __fastcall IndexOf(void * Item);
  575.     void __fastcall Insert(int Index, void * Item);
  576.     void * __fastcall Last(void);
  577.     void __fastcall Move(int CurIndex, int NewIndex);
  578.     int __fastcall Remove(void * Item);
  579.     void __fastcall Pack(void);
  580.     void __fastcall Sort(TListSortCompare Compare);
  581.     __property int Capacity = {read=FCapacity, write=SetCapacity, nodefault};
  582.     __property int Count = {read=FCount, write=SetCount, nodefault};
  583.     __property void * Items[int Index] = {read=Get, write=Put/*, default*/};
  584.     __property PPointerList List = {read=FList};
  585. public:
  586.     /* TObject.Create */ __fastcall TList(void) : System::TObject() { }
  587.     
  588. };
  589.  
  590. class DELPHICLASS TThreadList;
  591. class PASCALIMPLEMENTATION TThreadList : public System::TObject 
  592. {
  593.     typedef System::TObject inherited;
  594.     
  595. private:
  596.     TList* FList;
  597.     _RTL_CRITICAL_SECTION FLock;
  598.     
  599. public:
  600.     __fastcall TThreadList(void);
  601.     __fastcall virtual ~TThreadList(void);
  602.     void __fastcall Add(void * Item);
  603.     void __fastcall Clear(void);
  604.     TList* __fastcall LockList(void);
  605.     void __fastcall Remove(void * Item);
  606.     void __fastcall UnlockList(void);
  607. };
  608.  
  609. __interface IInterfaceList;
  610. typedef System::DelphiInterface<IInterfaceList> _di_IInterfaceList;
  611. __interface IInterfaceList : public IUnknown /* __guid="{E009AAE0-F90F-11D0-8415-00A0248E4C5A}" */
  612. {
  613.     
  614. public:
  615.     virtual _di_IUnknown __fastcall Get(int Index) = 0;
  616.     virtual int __fastcall GetCapacity(void) = 0;
  617.     virtual int __fastcall GetCount(void) = 0;
  618.     virtual void __fastcall Put(int Index, _di_IUnknown Item) = 0;
  619.     virtual void __fastcall SetCapacity(int NewCapacity) = 0;
  620.     virtual void __fastcall SetCount(int NewCount) = 0;
  621.     virtual void __fastcall Clear(void) = 0;
  622.     virtual void __fastcall Delete(int Index) = 0;
  623.     virtual _di_IUnknown __fastcall First(void) = 0;
  624.     virtual int __fastcall IndexOf(_di_IUnknown Item) = 0;
  625.     virtual int __fastcall Add(_di_IUnknown Item) = 0;
  626.     virtual void __fastcall Insert(int Index, _di_IUnknown Item) = 0;
  627.     virtual _di_IUnknown __fastcall Last(void) = 0;
  628.     virtual int __fastcall Remove(_di_IUnknown Item) = 0;
  629.     __property int Capacity = {read=GetCapacity, write=SetCapacity};
  630.     __property int Count = {read=GetCount, write=SetCount};
  631.     __property _di_IUnknown Items[int Index] = {read=Get, write=Put/*, default*/};
  632. };
  633.  
  634. class DELPHICLASS TInterfaceList;
  635. class PASCALIMPLEMENTATION TInterfaceList : public System::TInterfacedObject 
  636. {
  637.     typedef System::TInterfacedObject inherited;
  638.     
  639. private:
  640.     void *__IInterfaceList;    /* Classes::IInterfaceList */
  641.     
  642. public:
  643.     operator IInterfaceList*(void) { return (IInterfaceList*)&__IInterfaceList; }
  644.     
  645. private:
  646.     TList* FList;
  647.     
  648. protected:
  649.     _di_IUnknown __fastcall Get(int Index);
  650.     int __fastcall GetCapacity(void);
  651.     int __fastcall GetCount(void);
  652.     void __fastcall Put(int Index, _di_IUnknown Item);
  653.     void __fastcall SetCapacity(int NewCapacity);
  654.     void __fastcall SetCount(int NewCount);
  655.     
  656. public:
  657.     __fastcall TInterfaceList(void);
  658.     __fastcall virtual ~TInterfaceList(void);
  659.     void __fastcall Clear(void);
  660.     void __fastcall Delete(int Index);
  661.     TInterfaceList* __fastcall Expand(void);
  662.     _di_IUnknown __fastcall First(void);
  663.     int __fastcall IndexOf(_di_IUnknown Item);
  664.     int __fastcall Add(_di_IUnknown Item);
  665.     void __fastcall Insert(int Index, _di_IUnknown Item);
  666.     _di_IUnknown __fastcall Last(void);
  667.     int __fastcall Remove(_di_IUnknown Item);
  668.     __property int Capacity = {read=GetCapacity, write=SetCapacity, nodefault};
  669.     __property int Count = {read=GetCount, write=SetCount, nodefault};
  670.     __property _di_IUnknown Items[int Index] = {read=Get, write=Put/*, default*/};
  671. };
  672.  
  673. class DELPHICLASS TBits;
  674. class PASCALIMPLEMENTATION TBits : public System::TObject 
  675. {
  676.     typedef System::TObject inherited;
  677.     
  678. private:
  679.     int FSize;
  680.     void *FBits;
  681.     void __fastcall Error(void);
  682.     void __fastcall SetSize(int Value);
  683.     void __fastcall SetBit(int Index, bool Value);
  684.     bool __fastcall GetBit(int Index);
  685.     
  686. public:
  687.     __fastcall virtual ~TBits(void);
  688.     int __fastcall OpenBit(void);
  689.     __property bool Bits[int Index] = {read=GetBit, write=SetBit/*, default*/};
  690.     __property int Size = {read=FSize, write=SetSize, nodefault};
  691. public:
  692.     /* TObject.Create */ __fastcall TBits(void) : System::TObject() { }
  693.     
  694. };
  695.  
  696. class DELPHICLASS TPersistent;
  697. class DELPHICLASS TFiler;
  698. class PASCALIMPLEMENTATION TPersistent : public System::TObject 
  699. {
  700.     typedef System::TObject inherited;
  701.     
  702. private:
  703.     void __fastcall AssignError(TPersistent* Source);
  704.     
  705. protected:
  706.     virtual void __fastcall AssignTo(TPersistent* Dest);
  707.     virtual void __fastcall DefineProperties(TFiler* Filer);
  708.     DYNAMIC TPersistent* __fastcall GetOwner(void);
  709.     
  710. public:
  711.     __fastcall virtual ~TPersistent(void);
  712.     virtual void __fastcall Assign(TPersistent* Source);
  713.     DYNAMIC System::AnsiString __fastcall GetNamePath(void);
  714. public:
  715.     /* TObject.Create */ __fastcall TPersistent(void) : System::TObject() { }
  716.     
  717. };
  718.  
  719. typedef System::TMetaClass*TPersistentClass;
  720.  
  721. class DELPHICLASS TCollectionItem;
  722. class DELPHICLASS TCollection;
  723. typedef System::TMetaClass*TCollectionItemClass;
  724.  
  725. class PASCALIMPLEMENTATION TCollection : public Classes::TPersistent 
  726. {
  727.     typedef Classes::TPersistent inherited;
  728.     
  729. private:
  730.     System::TMetaClass*FItemClass;
  731.     TList* FItems;
  732.     int FUpdateCount;
  733.     int FNextID;
  734.     System::AnsiString FPropName;
  735.     int __fastcall GetCount(void);
  736.     System::AnsiString __fastcall GetPropName(void);
  737.     void __fastcall InsertItem(TCollectionItem* Item);
  738.     void __fastcall RemoveItem(TCollectionItem* Item);
  739.     
  740. protected:
  741.     DYNAMIC int __fastcall GetAttrCount(void);
  742.     DYNAMIC System::AnsiString __fastcall GetAttr(int Index);
  743.     DYNAMIC System::AnsiString __fastcall GetItemAttr(int Index, int ItemIndex);
  744.     DYNAMIC System::AnsiString __fastcall GetNamePath(void);
  745.     void __fastcall Changed(void);
  746.     TCollectionItem* __fastcall GetItem(int Index);
  747.     void __fastcall SetItem(int Index, TCollectionItem* Value);
  748.     virtual void __fastcall SetItemName(TCollectionItem* Item);
  749.     virtual void __fastcall Update(TCollectionItem* Item);
  750.     __property System::AnsiString PropName = {read=GetPropName, write=FPropName};
  751.     
  752. public:
  753.     __fastcall TCollection(System::TMetaClass* ItemClass);
  754.     __fastcall virtual ~TCollection(void);
  755.     TCollectionItem* __fastcall Add(void);
  756.     virtual void __fastcall Assign(TPersistent* Source);
  757.     void __fastcall BeginUpdate(void);
  758.     void __fastcall Clear(void);
  759.     void __fastcall EndUpdate(void);
  760.     TCollectionItem* __fastcall FindItemID(int ID);
  761.     TCollectionItem* __fastcall Insert(int Index);
  762.     __property int Count = {read=GetCount, nodefault};
  763.     __property System::TMetaClass* ItemClass = {read=FItemClass};
  764.     __property TCollectionItem* Items[int Index] = {read=GetItem, write=SetItem};
  765. };
  766.  
  767. class PASCALIMPLEMENTATION TCollectionItem : public Classes::TPersistent 
  768. {
  769.     typedef Classes::TPersistent inherited;
  770.     
  771. private:
  772.     TCollection* FCollection;
  773.     int FID;
  774.     int __fastcall GetIndex(void);
  775.     void __fastcall SetCollection(TCollection* Value);
  776.     
  777. protected:
  778.     void __fastcall Changed(bool AllItems);
  779.     DYNAMIC System::AnsiString __fastcall GetNamePath(void);
  780.     DYNAMIC TPersistent* __fastcall GetOwner(void);
  781.     virtual System::AnsiString __fastcall GetDisplayName(void);
  782.     virtual void __fastcall SetIndex(int Value);
  783.     virtual void __fastcall SetDisplayName(const System::AnsiString Value);
  784.     
  785. public:
  786.     __fastcall virtual TCollectionItem(TCollection* Collection);
  787.     __fastcall virtual ~TCollectionItem(void);
  788.     __property TCollection* Collection = {read=FCollection, write=SetCollection};
  789.     __property int ID = {read=FID, nodefault};
  790.     __property int Index = {read=GetIndex, write=SetIndex, nodefault};
  791.     __property System::AnsiString DisplayName = {read=GetDisplayName, write=SetDisplayName};
  792. };
  793.  
  794. class DELPHICLASS TOwnedCollection;
  795. class PASCALIMPLEMENTATION TOwnedCollection : public Classes::TCollection 
  796. {
  797.     typedef Classes::TCollection inherited;
  798.     
  799. private:
  800.     TPersistent* FOwner;
  801.     
  802. protected:
  803.     DYNAMIC TPersistent* __fastcall GetOwner(void);
  804.     
  805. public:
  806.     __fastcall TOwnedCollection(TPersistent* AOwner, System::TMetaClass* ItemClass);
  807. public:
  808.     /* TCollection.Destroy */ __fastcall virtual ~TOwnedCollection(void) { }
  809.     
  810. };
  811.  
  812. class DELPHICLASS TStrings;
  813. typedef void __fastcall (__closure *TGetModuleProc)(const System::AnsiString FileName, const System::AnsiString 
  814.     UnitName, const System::AnsiString FormName, const System::AnsiString DesignClass, TStrings* CoClasses
  815.     );
  816.  
  817. __interface IStringsAdapter;
  818. typedef System::DelphiInterface<IStringsAdapter> _di_IStringsAdapter;
  819. __interface IStringsAdapter : public IUnknown /* __guid="{739C2F34-52EC-11D0-9EA6-0020AF3D82DA}" */
  820. {
  821.     
  822. public:
  823.     virtual void __fastcall ReferenceStrings(TStrings* S) = 0;
  824.     virtual void __fastcall ReleaseStrings(void) = 0;
  825. };
  826.  
  827. class DELPHICLASS TReader;
  828. class DELPHICLASS TWriter;
  829. class DELPHICLASS TStream;
  830. class PASCALIMPLEMENTATION TStrings : public Classes::TPersistent 
  831. {
  832.     typedef Classes::TPersistent inherited;
  833.     
  834. private:
  835.     int FUpdateCount;
  836.     _di_IStringsAdapter FAdapter;
  837.     System::AnsiString __fastcall GetCommaText(void);
  838.     System::AnsiString __fastcall GetName(int Index);
  839.     System::AnsiString __fastcall GetValue(const System::AnsiString Name);
  840.     void __fastcall ReadData(TReader* Reader);
  841.     void __fastcall SetCommaText(const System::AnsiString Value);
  842.     void __fastcall SetStringsAdapter(const _di_IStringsAdapter Value);
  843.     void __fastcall SetValue(const System::AnsiString Name, const System::AnsiString Value);
  844.     void __fastcall WriteData(TWriter* Writer);
  845.     
  846. protected:
  847.     virtual void __fastcall DefineProperties(TFiler* Filer);
  848.     void __fastcall Error(const System::AnsiString Msg, int Data);
  849.     virtual System::AnsiString __fastcall Get(int Index) = 0;
  850.     virtual int __fastcall GetCapacity(void);
  851.     virtual int __fastcall GetCount(void) = 0;
  852.     virtual System::TObject* __fastcall GetObject(int Index);
  853.     virtual System::AnsiString __fastcall GetTextStr(void);
  854.     virtual void __fastcall Put(int Index, const System::AnsiString S);
  855.     virtual void __fastcall PutObject(int Index, System::TObject* AObject);
  856.     virtual void __fastcall SetCapacity(int NewCapacity);
  857.     virtual void __fastcall SetTextStr(const System::AnsiString Value);
  858.     virtual void __fastcall SetUpdateState(bool Updating);
  859.     
  860. public:
  861.     __fastcall virtual ~TStrings(void);
  862.     virtual int __fastcall Add(const System::AnsiString S);
  863.     virtual int __fastcall AddObject(const System::AnsiString S, System::TObject* AObject);
  864.     void __fastcall Append(const System::AnsiString S);
  865.     virtual void __fastcall AddStrings(TStrings* Strings);
  866.     virtual void __fastcall Assign(TPersistent* Source);
  867.     void __fastcall BeginUpdate(void);
  868.     virtual void __fastcall Clear(void) = 0;
  869.     virtual void __fastcall Delete(int Index) = 0;
  870.     void __fastcall EndUpdate(void);
  871.     bool __fastcall Equals(TStrings* Strings);
  872.     virtual void __fastcall Exchange(int Index1, int Index2);
  873.     virtual char * __fastcall GetText(void);
  874.     virtual int __fastcall IndexOf(const System::AnsiString S);
  875.     int __fastcall IndexOfName(const System::AnsiString Name);
  876.     int __fastcall IndexOfObject(System::TObject* AObject);
  877.     virtual void __fastcall Insert(int Index, const System::AnsiString S) = 0;
  878.     void __fastcall InsertObject(int Index, const System::AnsiString S, System::TObject* AObject);
  879.     virtual void __fastcall LoadFromFile(const System::AnsiString FileName);
  880.     virtual void __fastcall LoadFromStream(TStream* Stream);
  881.     virtual void __fastcall Move(int CurIndex, int NewIndex);
  882.     virtual void __fastcall SaveToFile(const System::AnsiString FileName);
  883.     virtual void __fastcall SaveToStream(TStream* Stream);
  884.     virtual void __fastcall SetText(char * Text);
  885.     __property int Capacity = {read=GetCapacity, write=SetCapacity, nodefault};
  886.     __property System::AnsiString CommaText = {read=GetCommaText, write=SetCommaText};
  887.     __property int Count = {read=GetCount, nodefault};
  888.     __property System::AnsiString Names[int Index] = {read=GetName};
  889.     __property System::TObject* Objects[int Index] = {read=GetObject, write=PutObject};
  890.     __property System::AnsiString Values[System::AnsiString Name] = {read=GetValue, write=SetValue};
  891.     __property System::AnsiString Strings[int Index] = {read=Get, write=Put/*, default*/};
  892.     __property System::AnsiString Text = {read=GetTextStr, write=SetTextStr};
  893.     __property _di_IStringsAdapter StringsAdapter = {read=FAdapter, write=SetStringsAdapter};
  894. public:
  895.     /* TObject.Create */ __fastcall TStrings(void) : Classes::TPersistent() { }
  896.     
  897. };
  898.  
  899. enum TDuplicates { dupIgnore, dupAccept, dupError };
  900.  
  901. struct TStringItem;
  902. typedef TStringItem *PStringItem;
  903.  
  904. struct TStringItem
  905. {
  906.     System::AnsiString FString;
  907.     System::TObject* FObject;
  908. } ;
  909.  
  910. typedef TStringItem TStringItemList[134217728];
  911.  
  912. typedef TStringItemList *PStringItemList;
  913.  
  914. class DELPHICLASS TStringList;
  915. class PASCALIMPLEMENTATION TStringList : public Classes::TStrings 
  916. {
  917.     typedef Classes::TStrings inherited;
  918.     
  919. private:
  920.     TStringItemList *FList;
  921.     int FCount;
  922.     int FCapacity;
  923.     bool FSorted;
  924.     TDuplicates FDuplicates;
  925.     TNotifyEvent FOnChange;
  926.     TNotifyEvent FOnChanging;
  927.     void __fastcall ExchangeItems(int Index1, int Index2);
  928.     void __fastcall Grow(void);
  929.     void __fastcall QuickSort(int L, int R);
  930.     void __fastcall InsertItem(int Index, const System::AnsiString S);
  931.     void __fastcall SetSorted(bool Value);
  932.     
  933. protected:
  934.     virtual void __fastcall Changed(void);
  935.     virtual void __fastcall Changing(void);
  936.     virtual System::AnsiString __fastcall Get(int Index);
  937.     virtual int __fastcall GetCapacity(void);
  938.     virtual int __fastcall GetCount(void);
  939.     virtual System::TObject* __fastcall GetObject(int Index);
  940.     virtual void __fastcall Put(int Index, const System::AnsiString S);
  941.     virtual void __fastcall PutObject(int Index, System::TObject* AObject);
  942.     virtual void __fastcall SetCapacity(int NewCapacity);
  943.     virtual void __fastcall SetUpdateState(bool Updating);
  944.     
  945. public:
  946.     __fastcall virtual ~TStringList(void);
  947.     virtual int __fastcall Add(const System::AnsiString S);
  948.     virtual void __fastcall Clear(void);
  949.     virtual void __fastcall Delete(int Index);
  950.     virtual void __fastcall Exchange(int Index1, int Index2);
  951.     virtual bool __fastcall Find(const System::AnsiString S, int &Index);
  952.     virtual int __fastcall IndexOf(const System::AnsiString S);
  953.     virtual void __fastcall Insert(int Index, const System::AnsiString S);
  954.     virtual void __fastcall Sort(void);
  955.     __property TDuplicates Duplicates = {read=FDuplicates, write=FDuplicates, nodefault};
  956.     __property bool Sorted = {read=FSorted, write=SetSorted, nodefault};
  957.     __property TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  958.     __property TNotifyEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  959. public:
  960.     /* TObject.Create */ __fastcall TStringList(void) : Classes::TStrings() { }
  961.     
  962. };
  963.  
  964. class DELPHICLASS TComponent;
  965. class PASCALIMPLEMENTATION TStream : public System::TObject 
  966. {
  967.     typedef System::TObject inherited;
  968.     
  969. private:
  970.     int __fastcall GetPosition(void);
  971.     void __fastcall SetPosition(int Pos);
  972.     int __fastcall GetSize(void);
  973.     
  974. protected:
  975.     virtual void __fastcall SetSize(int NewSize);
  976.     
  977. public:
  978.     virtual int __fastcall Read(void *Buffer, int Count) = 0;
  979.     virtual int __fastcall Write(const void *Buffer, int Count) = 0;
  980.     virtual int __fastcall Seek(int Offset, Word Origin) = 0;
  981.     void __fastcall ReadBuffer(void *Buffer, int Count);
  982.     void __fastcall WriteBuffer(const void *Buffer, int Count);
  983.     int __fastcall CopyFrom(TStream* Source, int Count);
  984.     TComponent* __fastcall ReadComponent(TComponent* Instance);
  985.     TComponent* __fastcall ReadComponentRes(TComponent* Instance);
  986.     void __fastcall WriteComponent(TComponent* Instance);
  987.     void __fastcall WriteComponentRes(const System::AnsiString ResName, TComponent* Instance);
  988.     void __fastcall WriteDescendent(TComponent* Instance, TComponent* Ancestor);
  989.     void __fastcall WriteDescendentRes(const System::AnsiString ResName, TComponent* Instance, TComponent* 
  990.         Ancestor);
  991.     void __fastcall ReadResHeader(void);
  992.     __property int Position = {read=GetPosition, write=SetPosition, nodefault};
  993.     __property int Size = {read=GetSize, write=SetSize, nodefault};
  994. public:
  995.     /* TObject.Create */ __fastcall TStream(void) : System::TObject() { }
  996.     /* TObject.Destroy */ __fastcall virtual ~TStream(void) { }
  997.     
  998. };
  999.  
  1000. class DELPHICLASS THandleStream;
  1001. class PASCALIMPLEMENTATION THandleStream : public Classes::TStream 
  1002. {
  1003.     typedef Classes::TStream inherited;
  1004.     
  1005. private:
  1006.     int FHandle;
  1007.     
  1008. protected:
  1009.     virtual void __fastcall SetSize(int NewSize);
  1010.     
  1011. public:
  1012.     __fastcall THandleStream(int AHandle);
  1013.     virtual int __fastcall Read(void *Buffer, int Count);
  1014.     virtual int __fastcall Write(const void *Buffer, int Count);
  1015.     virtual int __fastcall Seek(int Offset, Word Origin);
  1016.     __property int Handle = {read=FHandle, nodefault};
  1017. public:
  1018.     /* TObject.Destroy */ __fastcall virtual ~THandleStream(void) { }
  1019.     
  1020. };
  1021.  
  1022. class DELPHICLASS TFileStream;
  1023. class PASCALIMPLEMENTATION TFileStream : public Classes::THandleStream 
  1024. {
  1025.     typedef Classes::THandleStream inherited;
  1026.     
  1027. public:
  1028.     __fastcall TFileStream(const System::AnsiString FileName, Word Mode);
  1029.     __fastcall virtual ~TFileStream(void);
  1030. };
  1031.  
  1032. class DELPHICLASS TCustomMemoryStream;
  1033. class PASCALIMPLEMENTATION TCustomMemoryStream : public Classes::TStream 
  1034. {
  1035.     typedef Classes::TStream inherited;
  1036.     
  1037. private:
  1038.     void *FMemory;
  1039.     int FSize;
  1040.     int FPosition;
  1041.     
  1042. protected:
  1043.     void __fastcall SetPointer(void * Ptr, int Size);
  1044.     
  1045. public:
  1046.     virtual int __fastcall Read(void *Buffer, int Count);
  1047.     virtual int __fastcall Seek(int Offset, Word Origin);
  1048.     void __fastcall SaveToStream(TStream* Stream);
  1049.     void __fastcall SaveToFile(const System::AnsiString FileName);
  1050.     __property void * Memory = {read=FMemory};
  1051. public:
  1052.     /* TObject.Create */ __fastcall TCustomMemoryStream(void) : Classes::TStream() { }
  1053.     /* TObject.Destroy */ __fastcall virtual ~TCustomMemoryStream(void) { }
  1054.     
  1055. };
  1056.  
  1057. class DELPHICLASS TMemoryStream;
  1058. class PASCALIMPLEMENTATION TMemoryStream : public Classes::TCustomMemoryStream 
  1059. {
  1060.     typedef Classes::TCustomMemoryStream inherited;
  1061.     
  1062. private:
  1063.     int FCapacity;
  1064.     void __fastcall SetCapacity(int NewCapacity);
  1065.     
  1066. protected:
  1067.     virtual void * __fastcall Realloc(int &NewCapacity);
  1068.     __property int Capacity = {read=FCapacity, write=SetCapacity, nodefault};
  1069.     
  1070. public:
  1071.     __fastcall virtual ~TMemoryStream(void);
  1072.     void __fastcall Clear(void);
  1073.     void __fastcall LoadFromStream(TStream* Stream);
  1074.     void __fastcall LoadFromFile(const System::AnsiString FileName);
  1075.     virtual void __fastcall SetSize(int NewSize);
  1076.     virtual int __fastcall Write(const void *Buffer, int Count);
  1077. public:
  1078.     /* TObject.Create */ __fastcall TMemoryStream(void) : Classes::TCustomMemoryStream() { }
  1079.     
  1080. };
  1081.  
  1082. class DELPHICLASS TStringStream;
  1083. class PASCALIMPLEMENTATION TStringStream : public Classes::TStream 
  1084. {
  1085.     typedef Classes::TStream inherited;
  1086.     
  1087. private:
  1088.     System::AnsiString FDataString;
  1089.     int FPosition;
  1090.     
  1091. protected:
  1092.     virtual void __fastcall SetSize(int NewSize);
  1093.     
  1094. public:
  1095.     __fastcall TStringStream(const System::AnsiString AString);
  1096.     virtual int __fastcall Read(void *Buffer, int Count);
  1097.     System::AnsiString __fastcall ReadString(int Count);
  1098.     virtual int __fastcall Seek(int Offset, Word Origin);
  1099.     virtual int __fastcall Write(const void *Buffer, int Count);
  1100.     void __fastcall WriteString(const System::AnsiString AString);
  1101.     __property System::AnsiString DataString = {read=FDataString};
  1102. public:
  1103.     /* TObject.Destroy */ __fastcall virtual ~TStringStream(void) { }
  1104.     
  1105. };
  1106.  
  1107. class DELPHICLASS TResourceStream;
  1108. class PASCALIMPLEMENTATION TResourceStream : public Classes::TCustomMemoryStream 
  1109. {
  1110.     typedef Classes::TCustomMemoryStream inherited;
  1111.     
  1112. private:
  1113.     HRSRC HResInfo;
  1114.     int HGlobal;
  1115.     void __fastcall Initialize(int Instance, char * Name, char * ResType);
  1116.     
  1117. public:
  1118.     __fastcall TResourceStream(int Instance, const System::AnsiString ResName, char * ResType);
  1119.     __fastcall TResourceStream(int Instance, int ResID, char * ResType);
  1120.     __fastcall virtual ~TResourceStream(void);
  1121.     virtual int __fastcall Write(const void *Buffer, int Count);
  1122. };
  1123.  
  1124. class DELPHICLASS TStreamAdapter;
  1125. class PASCALIMPLEMENTATION TStreamAdapter : public System::TInterfacedObject 
  1126. {
  1127.     typedef System::TInterfacedObject inherited;
  1128.     
  1129. private:
  1130.     void *__IStream;    /* IStream */
  1131.     
  1132. public:
  1133.     operator IStream*(void) { return (IStream*)&__IStream; }
  1134.     
  1135. private:
  1136.     TStream* FStream;
  1137.     
  1138. public:
  1139.     __fastcall TStreamAdapter(TStream* Stream);
  1140.     HRESULT __stdcall Read(void * pv, int cb, Windows::PLongint pcbRead);
  1141.     HRESULT __stdcall Write(void * pv, int cb, Windows::PLongint pcbWritten);
  1142.     HRESULT __stdcall Seek(System::Comp dlibMove, int dwOrigin, /* out */ System::Comp &libNewPosition)
  1143.         ;
  1144.     HRESULT __stdcall SetSize(System::Comp libNewSize);
  1145.     HRESULT __stdcall CopyTo(_di_IStream stm, System::Comp cb, /* out */ System::Comp &cbRead, /* out */ 
  1146.         System::Comp &cbWritten);
  1147.     HRESULT __stdcall Commit(int grfCommitFlags);
  1148.     HRESULT __stdcall Revert(void);
  1149.     HRESULT __stdcall LockRegion(System::Comp libOffset, System::Comp cb, int dwLockType);
  1150.     HRESULT __stdcall UnlockRegion(System::Comp libOffset, System::Comp cb, int dwLockType);
  1151.     HRESULT __stdcall Stat(/* out */ tagSTATSTG &statstg, int grfStatFlag);
  1152.     HRESULT __stdcall Clone(/* out */ _di_IStream &stm);
  1153. public:
  1154.     /* TInterfacedObject.Destroy */ __fastcall virtual ~TStreamAdapter(void) { }
  1155.     
  1156. };
  1157.  
  1158. enum TValueType { vaNull, vaList, vaInt8, vaInt16, vaInt32, vaExtended, vaString, vaIdent, vaFalse, 
  1159.     vaTrue, vaBinary, vaSet, vaLString, vaNil, vaCollection };
  1160.  
  1161. enum TFilerFlag { ffInherited, ffChildPos };
  1162.  
  1163. typedef Set<TFilerFlag, ffInherited, ffChildPos>  TFilerFlags;
  1164.  
  1165. typedef void __fastcall (__closure *TReaderProc)(TReader* Reader);
  1166.  
  1167. typedef void __fastcall (__closure *TWriterProc)(TWriter* Writer);
  1168.  
  1169. typedef void __fastcall (__closure *TStreamProc)(TStream* Stream);
  1170.  
  1171. class PASCALIMPLEMENTATION TFiler : public System::TObject 
  1172. {
  1173.     typedef System::TObject inherited;
  1174.     
  1175. private:
  1176.     TStream* FStream;
  1177.     void *FBuffer;
  1178.     int FBufSize;
  1179.     int FBufPos;
  1180.     int FBufEnd;
  1181.     TComponent* FRoot;
  1182.     TPersistent* FAncestor;
  1183.     bool FIgnoreChildren;
  1184.     
  1185. public:
  1186.     __fastcall TFiler(TStream* Stream, int BufSize);
  1187.     __fastcall virtual ~TFiler(void);
  1188.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  1189.         WriteData, bool HasData) = 0;
  1190.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  1191.         WriteData, bool HasData) = 0;
  1192.     virtual void __fastcall FlushBuffer(void) = 0;
  1193.     __property TComponent* Root = {read=FRoot, write=FRoot};
  1194.     __property TPersistent* Ancestor = {read=FAncestor, write=FAncestor};
  1195.     __property bool IgnoreChildren = {read=FIgnoreChildren, write=FIgnoreChildren, nodefault};
  1196. };
  1197.  
  1198. typedef void __fastcall (__closure *TFindMethodEvent)(TReader* Reader, const System::AnsiString MethodName
  1199.     , void * &Address, bool &Error);
  1200.  
  1201. typedef void __fastcall (__closure *TSetNameEvent)(TReader* Reader, TComponent* Component, System::AnsiString 
  1202.     &Name);
  1203.  
  1204. typedef void __fastcall (__closure *TReferenceNameEvent)(TReader* Reader, System::AnsiString &Name);
  1205.     
  1206.  
  1207. typedef void __fastcall (__closure *TAncestorNotFoundEvent)(TReader* Reader, const System::AnsiString 
  1208.     ComponentName, System::TMetaClass* ComponentClass, TComponent* &Component);
  1209.  
  1210. typedef void __fastcall (__closure *TReadComponentsProc)(TComponent* Component);
  1211.  
  1212. typedef void __fastcall (__closure *TReaderError)(TReader* Reader, const System::AnsiString Message, 
  1213.     bool &Handled);
  1214.  
  1215. class PASCALIMPLEMENTATION TReader : public Classes::TFiler 
  1216. {
  1217.     typedef Classes::TFiler inherited;
  1218.     
  1219. private:
  1220.     TComponent* FOwner;
  1221.     TComponent* FParent;
  1222.     TList* FFixups;
  1223.     TList* FLoaded;
  1224.     TFindMethodEvent FOnFindMethod;
  1225.     TSetNameEvent FOnSetName;
  1226.     TReferenceNameEvent FOnReferenceName;
  1227.     TAncestorNotFoundEvent FOnAncestorNotFound;
  1228.     TReaderError FOnError;
  1229.     bool FCanHandleExcepts;
  1230.     System::AnsiString FPropName;
  1231.     void __fastcall CheckValue(TValueType Value);
  1232.     void __fastcall DoFixupReferences(void);
  1233.     void __fastcall FreeFixups(void);
  1234.     int __fastcall GetPosition(void);
  1235.     void __fastcall PropertyError(void);
  1236.     void __fastcall ReadBuffer(void);
  1237.     void __fastcall ReadData(TComponent* Instance);
  1238.     void __fastcall ReadDataInner(TComponent* Instance);
  1239.     void __fastcall ReadProperty(TPersistent* AInstance);
  1240.     void __fastcall ReadPropValue(TPersistent* Instance, void * PropInfo);
  1241.     int __fastcall ReadSet(void * SetType);
  1242.     void __fastcall SetPosition(int Value);
  1243.     void __fastcall SkipSetBody(void);
  1244.     void __fastcall SkipValue(void);
  1245.     void __fastcall SkipProperty(void);
  1246.     void __fastcall SkipComponent(bool SkipHeader);
  1247.     
  1248. protected:
  1249.     virtual bool __fastcall Error(const System::AnsiString Message);
  1250.     virtual void * __fastcall FindMethod(TComponent* Root, const System::AnsiString MethodName);
  1251.     virtual void __fastcall SetName(TComponent* Component, System::AnsiString &Name);
  1252.     virtual void __fastcall ReferenceName(System::AnsiString &Name);
  1253.     virtual TComponent* __fastcall FindAncestorComponent(const System::AnsiString Name, System::TMetaClass* 
  1254.         ComponentClass);
  1255.     
  1256. public:
  1257.     __fastcall virtual ~TReader(void);
  1258.     void __fastcall BeginReferences(void);
  1259.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  1260.         WriteData, bool HasData);
  1261.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  1262.         WriteData, bool HasData);
  1263.     bool __fastcall EndOfList(void);
  1264.     void __fastcall EndReferences(void);
  1265.     void __fastcall FixupReferences(void);
  1266.     virtual void __fastcall FlushBuffer(void);
  1267.     TValueType __fastcall NextValue(void);
  1268.     void __fastcall Read(void *Buf, int Count);
  1269.     bool __fastcall ReadBoolean(void);
  1270.     char __fastcall ReadChar(void);
  1271.     void __fastcall ReadCollection(TCollection* Collection);
  1272.     TComponent* __fastcall ReadComponent(TComponent* Component);
  1273.     void __fastcall ReadComponents(TComponent* AOwner, TComponent* AParent, TReadComponentsProc Proc);
  1274.     Extended __fastcall ReadFloat(void);
  1275.     System::AnsiString __fastcall ReadIdent(void);
  1276.     int __fastcall ReadInteger(void);
  1277.     void __fastcall ReadListBegin(void);
  1278.     void __fastcall ReadListEnd(void);
  1279.     void __fastcall ReadPrefix(TFilerFlags &Flags, int &AChildPos);
  1280.     TComponent* __fastcall ReadRootComponent(TComponent* Root);
  1281.     void __fastcall ReadSignature(void);
  1282.     System::AnsiString __fastcall ReadStr(void);
  1283.     System::AnsiString __fastcall ReadString(void);
  1284.     TValueType __fastcall ReadValue(void);
  1285.     void __fastcall CopyValue(TWriter* Writer);
  1286.     __property TComponent* Owner = {read=FOwner, write=FOwner};
  1287.     __property TComponent* Parent = {read=FParent, write=FParent};
  1288.     __property int Position = {read=GetPosition, write=SetPosition, nodefault};
  1289.     __property TReaderError OnError = {read=FOnError, write=FOnError};
  1290.     __property TFindMethodEvent OnFindMethod = {read=FOnFindMethod, write=FOnFindMethod};
  1291.     __property TSetNameEvent OnSetName = {read=FOnSetName, write=FOnSetName};
  1292.     __property TReferenceNameEvent OnReferenceName = {read=FOnReferenceName, write=FOnReferenceName};
  1293.     __property TAncestorNotFoundEvent OnAncestorNotFound = {read=FOnAncestorNotFound, write=FOnAncestorNotFound
  1294.         };
  1295. public:
  1296.     /* TFiler.Create */ __fastcall TReader(TStream* Stream, int BufSize) : Classes::TFiler(Stream, BufSize
  1297.         ) { }
  1298.     
  1299. };
  1300.  
  1301. class PASCALIMPLEMENTATION TWriter : public Classes::TFiler 
  1302. {
  1303.     typedef Classes::TFiler inherited;
  1304.     
  1305. private:
  1306.     TComponent* FRootAncestor;
  1307.     System::AnsiString FPropPath;
  1308.     TList* FAncestorList;
  1309.     int FAncestorPos;
  1310.     int FChildPos;
  1311.     void __fastcall AddAncestor(TComponent* Component);
  1312.     int __fastcall GetPosition(void);
  1313.     void __fastcall SetPosition(int Value);
  1314.     void __fastcall WriteBuffer(void);
  1315.     virtual void __fastcall WriteData(TComponent* Instance);
  1316.     void __fastcall WriteProperty(TPersistent* Instance, void * PropInfo);
  1317.     void __fastcall WriteProperties(TPersistent* Instance);
  1318.     void __fastcall WritePropName(const System::AnsiString PropName);
  1319.     
  1320. protected:
  1321.     void __fastcall WriteBinary(TStreamProc WriteData);
  1322.     void __fastcall WritePrefix(TFilerFlags Flags, int AChildPos);
  1323.     void __fastcall WriteValue(TValueType Value);
  1324.     
  1325. public:
  1326.     __fastcall virtual ~TWriter(void);
  1327.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  1328.         WriteData, bool HasData);
  1329.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  1330.         WriteData, bool HasData);
  1331.     virtual void __fastcall FlushBuffer(void);
  1332.     void __fastcall Write(const void *Buf, int Count);
  1333.     void __fastcall WriteBoolean(bool Value);
  1334.     void __fastcall WriteCollection(TCollection* Value);
  1335.     void __fastcall WriteComponent(TComponent* Component);
  1336.     void __fastcall WriteChar(char Value);
  1337.     void __fastcall WriteDescendent(TComponent* Root, TComponent* AAncestor);
  1338.     void __fastcall WriteFloat(Extended Value);
  1339.     void __fastcall WriteIdent(const System::AnsiString Ident);
  1340.     void __fastcall WriteInteger(int Value);
  1341.     void __fastcall WriteListBegin(void);
  1342.     void __fastcall WriteListEnd(void);
  1343.     void __fastcall WriteRootComponent(TComponent* Root);
  1344.     void __fastcall WriteSignature(void);
  1345.     void __fastcall WriteStr(const System::AnsiString Value);
  1346.     void __fastcall WriteString(const System::AnsiString Value);
  1347.     __property int Position = {read=GetPosition, write=SetPosition, nodefault};
  1348.     __property TComponent* RootAncestor = {read=FRootAncestor, write=FRootAncestor};
  1349. public:
  1350.     /* TFiler.Create */ __fastcall TWriter(TStream* Stream, int BufSize) : Classes::TFiler(Stream, BufSize
  1351.         ) { }
  1352.     
  1353. };
  1354.  
  1355. class DELPHICLASS TParser;
  1356. class PASCALIMPLEMENTATION TParser : public System::TObject 
  1357. {
  1358.     typedef System::TObject inherited;
  1359.     
  1360. private:
  1361.     TStream* FStream;
  1362.     int FOrigin;
  1363.     char *FBuffer;
  1364.     char *FBufPtr;
  1365.     char *FBufEnd;
  1366.     char *FSourcePtr;
  1367.     char *FSourceEnd;
  1368.     char *FTokenPtr;
  1369.     char *FStringPtr;
  1370.     int FSourceLine;
  1371.     char FSaveChar;
  1372.     char FToken;
  1373.     void __fastcall ReadBuffer(void);
  1374.     void __fastcall SkipBlanks(void);
  1375.     
  1376. public:
  1377.     __fastcall TParser(TStream* Stream);
  1378.     __fastcall virtual ~TParser(void);
  1379.     void __fastcall CheckToken(char T);
  1380.     void __fastcall CheckTokenSymbol(const System::AnsiString S);
  1381.     void __fastcall Error(const System::AnsiString Ident);
  1382.     void __fastcall ErrorFmt(const System::AnsiString Ident, const System::TVarRec * Args, const int Args_Size
  1383.         );
  1384.     void __fastcall ErrorStr(const System::AnsiString Message);
  1385.     void __fastcall HexToBinary(TStream* Stream);
  1386.     char __fastcall NextToken(void);
  1387.     int __fastcall SourcePos(void);
  1388.     System::AnsiString __fastcall TokenComponentIdent(void);
  1389.     Extended __fastcall TokenFloat(void);
  1390.     int __fastcall TokenInt(void);
  1391.     System::AnsiString __fastcall TokenString(void);
  1392.     bool __fastcall TokenSymbolIs(const System::AnsiString S);
  1393.     __property int SourceLine = {read=FSourceLine, nodefault};
  1394.     __property char Token = {read=FToken, nodefault};
  1395. };
  1396.  
  1397. class DELPHICLASS EThread;
  1398. class PASCALIMPLEMENTATION EThread : public Sysutils::Exception 
  1399. {
  1400.     typedef Sysutils::Exception inherited;
  1401.     
  1402. public:
  1403.     /* Exception.Create */ __fastcall EThread(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
  1404.         
  1405.     /* Exception.CreateFmt */ __fastcall EThread(const System::AnsiString Msg, const System::TVarRec * 
  1406.         Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  1407.     /* Exception.CreateRes */ __fastcall EThread(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  1408.         , Dummy) { }
  1409.     /* Exception.CreateResFmt */ __fastcall EThread(int Ident, const System::TVarRec * Args, const int 
  1410.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  1411.     /* Exception.CreateHelp */ __fastcall EThread(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  1412.         Exception(Msg, AHelpContext) { }
  1413.     /* Exception.CreateFmtHelp */ __fastcall EThread(const System::AnsiString Msg, const System::TVarRec 
  1414.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  1415.         ) { }
  1416.     /* Exception.CreateResHelp */ __fastcall EThread(int Ident, int AHelpContext) : Sysutils::Exception(
  1417.         Ident, AHelpContext) { }
  1418.     /* Exception.CreateResFmtHelp */ __fastcall EThread(int Ident, const System::TVarRec * Args, const 
  1419.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  1420.     
  1421. public:
  1422.     /* TObject.Destroy */ __fastcall virtual ~EThread(void) { }
  1423.     
  1424. };
  1425.  
  1426. typedef void __fastcall (__closure *TThreadMethod)(void);
  1427.  
  1428. enum TThreadPriority { tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest, tpTimeCritical };
  1429.  
  1430. class DELPHICLASS TThread;
  1431. class PASCALIMPLEMENTATION TThread : public System::TObject 
  1432. {
  1433.     typedef System::TObject inherited;
  1434.     
  1435. private:
  1436.     int FHandle;
  1437.     int FThreadID;
  1438.     bool FTerminated;
  1439.     bool FSuspended;
  1440.     bool FFreeOnTerminate;
  1441.     bool FFinished;
  1442.     int FReturnValue;
  1443.     TNotifyEvent FOnTerminate;
  1444.     TThreadMethod FMethod;
  1445.     System::TObject* FSynchronizeException;
  1446.     void __fastcall CallOnTerminate(void);
  1447.     TThreadPriority __fastcall GetPriority(void);
  1448.     void __fastcall SetPriority(TThreadPriority Value);
  1449.     void __fastcall SetSuspended(bool Value);
  1450.     
  1451. protected:
  1452.     virtual void __fastcall DoTerminate(void);
  1453.     virtual void __fastcall Execute(void) = 0;
  1454.     void __fastcall Synchronize(TThreadMethod Method);
  1455.     __property int ReturnValue = {read=FReturnValue, write=FReturnValue, nodefault};
  1456.     __property bool Terminated = {read=FTerminated, nodefault};
  1457.     
  1458. public:
  1459.     __fastcall TThread(bool CreateSuspended);
  1460.     __fastcall virtual ~TThread(void);
  1461.     void __fastcall Resume(void);
  1462.     void __fastcall Suspend(void);
  1463.     void __fastcall Terminate(void);
  1464.     int __fastcall WaitFor(void);
  1465.     __property bool FreeOnTerminate = {read=FFreeOnTerminate, write=FFreeOnTerminate, nodefault};
  1466.     __property int Handle = {read=FHandle, nodefault};
  1467.     __property TThreadPriority Priority = {read=GetPriority, write=SetPriority, nodefault};
  1468.     __property bool Suspended = {read=FSuspended, write=SetSuspended, nodefault};
  1469.     __property int ThreadID = {read=FThreadID, nodefault};
  1470.     __property TNotifyEvent OnTerminate = {read=FOnTerminate, write=FOnTerminate};
  1471. };
  1472.  
  1473. enum TOperation { opInsert, opRemove };
  1474.  
  1475. enum Classes__34 { csLoading, csReading, csWriting, csDestroying, csDesigning, csAncestor, csUpdating, 
  1476.     csFixups };
  1477.  
  1478. typedef Set<Classes__34, csLoading, csFixups>  TComponentState;
  1479.  
  1480. enum Classes__44 { csInheritable, csCheckPropAvail };
  1481.  
  1482. typedef Set<Classes__44, csInheritable, csCheckPropAvail>  TComponentStyle;
  1483.  
  1484. typedef void __fastcall (__closure *TGetChildProc)(TComponent* Child);
  1485.  
  1486. typedef System::AnsiString TComponentName;
  1487.  
  1488. __interface IVCLComObject;
  1489. typedef System::DelphiInterface<IVCLComObject> _di_IVCLComObject;
  1490. __interface IVCLComObject : public IUnknown /* __guid="{E07892A0-F52F-11CF-BD2F-0020AF0E5B81}" */
  1491. {
  1492.     
  1493. public:
  1494.     virtual HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count) = 0;
  1495.     virtual HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo) = 0;
  1496.     virtual HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID, 
  1497.         void * DispIDs) = 0;
  1498.     virtual HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params
  1499.         , void * VarResult, void * ExcepInfo, void * ArgErr) = 0;
  1500.     virtual HRESULT __fastcall SafeCallException(System::TObject* ExceptObject, void * ExceptAddr) = 0;
  1501.         
  1502.     virtual void __fastcall FreeOnRelease(void) = 0;
  1503. };
  1504.  
  1505. class PASCALIMPLEMENTATION TComponent : public Classes::TPersistent 
  1506. {
  1507.     typedef Classes::TPersistent inherited;
  1508.     
  1509. private:
  1510.     TComponent* FOwner;
  1511.     System::AnsiString FName;
  1512.     int FTag;
  1513.     TList* FComponents;
  1514.     TList* FFreeNotifies;
  1515.     int FDesignInfo;
  1516.     void *FVCLComObject;
  1517.     TComponentState FComponentState;
  1518.     _di_IUnknown __fastcall GetComObject(void);
  1519.     TComponent* __fastcall GetComponent(int AIndex);
  1520.     int __fastcall GetComponentCount(void);
  1521.     int __fastcall GetComponentIndex(void);
  1522.     void __fastcall Insert(TComponent* AComponent);
  1523.     void __fastcall ReadLeft(TReader* Reader);
  1524.     void __fastcall ReadTop(TReader* Reader);
  1525.     void __fastcall Remove(TComponent* AComponent);
  1526.     void __fastcall SetComponentIndex(int Value);
  1527.     void __fastcall SetReference(bool Enable);
  1528.     void __fastcall WriteLeft(TWriter* Writer);
  1529.     void __fastcall WriteTop(TWriter* Writer);
  1530.     
  1531. protected:
  1532.     TComponentStyle FComponentStyle;
  1533.     void __fastcall ChangeName(const System::AnsiString NewName);
  1534.     virtual void __fastcall DefineProperties(TFiler* Filer);
  1535.     DYNAMIC void __fastcall GetChildren(TGetChildProc Proc, TComponent* Root);
  1536.     DYNAMIC TComponent* __fastcall GetChildOwner(void);
  1537.     DYNAMIC TComponent* __fastcall GetChildParent(void);
  1538.     DYNAMIC System::AnsiString __fastcall GetNamePath(void);
  1539.     DYNAMIC TPersistent* __fastcall GetOwner(void);
  1540.     virtual void __fastcall Loaded(void);
  1541.     virtual void __fastcall Notification(TComponent* AComponent, TOperation Operation);
  1542.     virtual void __fastcall ReadState(TReader* Reader);
  1543.     void __fastcall SetAncestor(bool Value);
  1544.     void __fastcall SetDesigning(bool Value);
  1545.     virtual void __fastcall SetName(const System::AnsiString NewName);
  1546.     DYNAMIC void __fastcall SetChildOrder(TComponent* Child, int Order);
  1547.     DYNAMIC void __fastcall SetParentComponent(TComponent* Value);
  1548.     DYNAMIC void __fastcall Updating(void);
  1549.     DYNAMIC void __fastcall Updated(void);
  1550.     /* virtual class method */ virtual void __fastcall UpdateRegistry(bool Register, const System::AnsiString 
  1551.         ClassID, const System::AnsiString ProgID) { UpdateRegistry(__classid(TComponent), Register, ClassID
  1552.         , ProgID); }
  1553.     /*         class method */ static void __fastcall UpdateRegistry(System::TMetaClass* vmt, bool Register
  1554.         , const System::AnsiString ClassID, const System::AnsiString ProgID);
  1555.     virtual void __fastcall ValidateRename(TComponent* AComponent, const System::AnsiString CurName, const 
  1556.         System::AnsiString NewName);
  1557.     DYNAMIC void __fastcall ValidateContainer(TComponent* AComponent);
  1558.     DYNAMIC void __fastcall ValidateInsert(TComponent* AComponent);
  1559.     virtual void __fastcall WriteState(TWriter* Writer);
  1560.     HRESULT __stdcall QueryInterface(const GUID &IID, /* out */ void *Obj);
  1561.     int __stdcall _AddRef(void);
  1562.     int __stdcall _Release(void);
  1563.     HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count);
  1564.     HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo);
  1565.     HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID, void * 
  1566.         DispIDs);
  1567.     HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params, void * 
  1568.         VarResult, void * ExcepInfo, void * ArgErr);
  1569.     
  1570. public:
  1571.     __fastcall virtual TComponent(TComponent* AOwner);
  1572.     __fastcall virtual ~TComponent(void);
  1573.     void __fastcall DestroyComponents(void);
  1574.     void __fastcall Destroying(void);
  1575.     TComponent* __fastcall FindComponent(const System::AnsiString AName);
  1576.     void __fastcall FreeNotification(TComponent* AComponent);
  1577.     void __fastcall FreeOnRelease(void);
  1578.     DYNAMIC TComponent* __fastcall GetParentComponent(void);
  1579.     DYNAMIC bool __fastcall HasParent(void);
  1580.     void __fastcall InsertComponent(TComponent* AComponent);
  1581.     void __fastcall RemoveComponent(TComponent* AComponent);
  1582.     virtual HRESULT __fastcall SafeCallException(System::TObject* ExceptObject, void * ExceptAddr);
  1583.     __property _di_IUnknown ComObject = {read=GetComObject};
  1584.     __property TComponent* Components[int Index] = {read=GetComponent};
  1585.     __property int ComponentCount = {read=GetComponentCount, nodefault};
  1586.     __property int ComponentIndex = {read=GetComponentIndex, write=SetComponentIndex, nodefault};
  1587.     __property TComponentState ComponentState = {read=FComponentState, nodefault};
  1588.     __property TComponentStyle ComponentStyle = {read=FComponentStyle, nodefault};
  1589.     __property int DesignInfo = {read=FDesignInfo, write=FDesignInfo, nodefault};
  1590.     __property TComponent* Owner = {read=FOwner};
  1591.     __property void * VCLComObject = {read=FVCLComObject, write=FVCLComObject};
  1592.     
  1593. __published:
  1594.     __property System::AnsiString Name = {read=FName, write=SetName, stored=false};
  1595.     __property int Tag = {read=FTag, write=FTag, default=0};
  1596. };
  1597.  
  1598. typedef System::TMetaClass*TComponentClass;
  1599.  
  1600. enum TActiveXRegType { axrComponentOnly, axrIncludeDescendants };
  1601.  
  1602. struct TIdentMapEntry
  1603. {
  1604.     int Value;
  1605.     System::AnsiString Name;
  1606. } ;
  1607.  
  1608. typedef bool __fastcall (*TIdentToInt)(const System::AnsiString Ident, int &Int);
  1609.  
  1610. typedef bool __fastcall (*TIntToIdent)(int Int, System::AnsiString &Ident);
  1611.  
  1612. typedef TComponent* __fastcall (*TFindGlobalComponent)(const System::AnsiString Name);
  1613.  
  1614. //-- var, const, procedure ---------------------------------------------------
  1615. #define MaxListSize (int)(134217727)
  1616. #define soFromBeginning (Byte)(0)
  1617. #define soFromCurrent (Byte)(1)
  1618. #define soFromEnd (Byte)(2)
  1619. #define fmCreate (int)(65535)
  1620. #define toEOF (char)(0)
  1621. #define toSymbol (char)(1)
  1622. #define toString (char)(2)
  1623. #define toInteger (char)(3)
  1624. #define toFloat (char)(4)
  1625. extern PACKAGE void __fastcall (*RegisterComponentsProc)(const System::AnsiString Page, System::TMetaClass* 
  1626.     const * ComponentClasses, const int ComponentClasses_Size);
  1627. extern PACKAGE void __fastcall (*RegisterNoIconProc)(System::TMetaClass* const * ComponentClasses, const 
  1628.     int ComponentClasses_Size);
  1629. extern PACKAGE void __fastcall (*RegisterNonActiveXProc)(System::TMetaClass* const * ComponentClasses
  1630.     , const int ComponentClasses_Size, TActiveXRegType AxRegType);
  1631. extern PACKAGE int CurrentGroup;
  1632. extern PACKAGE void __fastcall (*CreateVCLComObjectProc)(TComponent* Component);
  1633. extern PACKAGE int MainThreadID;
  1634. extern PACKAGE TFindGlobalComponent FindGlobalComponent;
  1635. extern PACKAGE tagPOINT __fastcall Point(int AX, int AY);
  1636. extern PACKAGE Windows::TSmallPoint __fastcall SmallPoint(short AX, short AY);
  1637. extern PACKAGE Windows::TRect __fastcall Rect(int ALeft, int ATop, int ARight, int ABottom);
  1638. extern PACKAGE Windows::TRect __fastcall Bounds(int ALeft, int ATop, int AWidth, int AHeight);
  1639. extern PACKAGE System::TMetaClass* __fastcall GetClass(const System::AnsiString ClassName);
  1640. extern PACKAGE System::TMetaClass* __fastcall FindClass(const System::AnsiString ClassName);
  1641. extern PACKAGE void __fastcall RegisterClass(System::TMetaClass* AClass);
  1642. extern PACKAGE void __fastcall RegisterClasses(System::TMetaClass* const * AClasses, const int AClasses_Size
  1643.     );
  1644. extern PACKAGE void __fastcall RegisterClassAlias(System::TMetaClass* AClass, const System::AnsiString 
  1645.     Alias);
  1646. extern PACKAGE void __fastcall UnRegisterClass(System::TMetaClass* AClass);
  1647. extern PACKAGE void __fastcall UnRegisterClasses(System::TMetaClass* const * AClasses, const int AClasses_Size
  1648.     );
  1649. extern PACKAGE void __fastcall UnRegisterModuleClasses(Windows::HINST Module);
  1650. extern PACKAGE void __fastcall RegisterComponents(const System::AnsiString Page, System::TMetaClass* 
  1651.     const * ComponentClasses, const int ComponentClasses_Size);
  1652. extern PACKAGE void __fastcall RegisterNoIcon(System::TMetaClass* const * ComponentClasses, const int 
  1653.     ComponentClasses_Size);
  1654. extern PACKAGE void __fastcall RegisterNonActiveX(System::TMetaClass* const * ComponentClasses, const 
  1655.     int ComponentClasses_Size, TActiveXRegType AxRegType);
  1656. extern PACKAGE void __fastcall RegisterIntegerConsts(void * IntegerType, TIdentToInt IdentToInt, TIntToIdent 
  1657.     IntToIdent);
  1658. extern PACKAGE bool __fastcall IdentToInt(const System::AnsiString Ident, int &Int, const TIdentMapEntry 
  1659.     * Map, const int Map_Size);
  1660. extern PACKAGE bool __fastcall IntToIdent(int Int, System::AnsiString &Ident, const TIdentMapEntry * 
  1661.     Map, const int Map_Size);
  1662. extern PACKAGE void __fastcall BeginGlobalLoading(void);
  1663. extern PACKAGE void __fastcall NotifyGlobalLoading(void);
  1664. extern PACKAGE void __fastcall EndGlobalLoading(void);
  1665. extern PACKAGE bool __fastcall InitInheritedComponent(TComponent* Instance, System::TMetaClass* RootAncestor
  1666.     );
  1667. extern PACKAGE bool __fastcall InitComponentRes(const System::AnsiString ResName, TComponent* Instance
  1668.     );
  1669. extern PACKAGE TComponent* __fastcall ReadComponentRes(const System::AnsiString ResName, TComponent* 
  1670.     Instance);
  1671. extern PACKAGE TComponent* __fastcall ReadComponentResEx(int HInstance, const System::AnsiString ResName
  1672.     );
  1673. extern PACKAGE TComponent* __fastcall ReadComponentResFile(const System::AnsiString FileName, TComponent* 
  1674.     Instance);
  1675. extern PACKAGE void __fastcall WriteComponentResFile(const System::AnsiString FileName, TComponent* 
  1676.     Instance);
  1677. extern PACKAGE bool __fastcall CollectionsEqual(TCollection* C1, TCollection* C2);
  1678. extern PACKAGE char * __fastcall LineStart(char * Buffer, char * BufPos);
  1679. extern PACKAGE int __fastcall ExtractStrings(const Sysutils::TSysCharSet &Separators, const Sysutils::TSysCharSet 
  1680.     &WhiteSpace, char * Content, TStrings* Strings);
  1681. extern PACKAGE void __fastcall GlobalFixupReferences(void);
  1682. extern PACKAGE void __fastcall GetFixupReferenceNames(TComponent* Root, TStrings* Names);
  1683. extern PACKAGE void __fastcall RedirectFixupReferences(TComponent* Root, const System::AnsiString OldRootName
  1684.     , const System::AnsiString NewRootName);
  1685. extern PACKAGE void __fastcall RemoveFixupReferences(TComponent* Root, const System::AnsiString RootName
  1686.     );
  1687. extern PACKAGE void __fastcall RemoveFixups(TPersistent* Instance);
  1688. extern PACKAGE void __fastcall GetFixupInstanceNames(TComponent* Root, const System::AnsiString ReferenceRootName
  1689.     , TStrings* Names);
  1690. extern PACKAGE void __fastcall ObjectBinaryToText(TStream* Input, TStream* Output);
  1691. extern PACKAGE void __fastcall ObjectTextToBinary(TStream* Input, TStream* Output);
  1692. extern PACKAGE void __fastcall ObjectResourceToText(TStream* Input, TStream* Output);
  1693. extern PACKAGE void __fastcall ObjectTextToResource(TStream* Input, TStream* Output);
  1694.  
  1695. }    /* namespace Classes */
  1696. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1697. using namespace Classes;
  1698. #endif
  1699. //-- end unit ----------------------------------------------------------------
  1700. #endif    // Classes
  1701.